home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 136 / Tiger_Disk_136_20xx_Tiger-Crew-Disk_de_Side_B.d64 / load & show [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  356b  |  13 lines
  1. 10 ifa=0then40
  2. 20 ifa=1then90
  3. 30 ifa=0thena=1:loadbn$,8,1
  4. 40 poke53280,.:poke53281,.:print"[147][155]bildname (laden)"
  5. 50 bn$="":inputbn$:ifbn$=""thenend
  6. 60 iflen(bn$)<10thenbn$=bn$+" ":goto60
  7. 70 bn$=bn$+".hifli"
  8. 80 goto30
  9. 90 print"  space [146] zum laden des showers!"
  10. 100 poke198,0:wait198,1:poke198,0
  11. 110 print"[144]load"chr$(34)"hifli shower/mdm"chr$(34)",8[145][145][145]"
  12. 120 poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:poke198,5:end
  13.